home *** CD-ROM | disk | FTP | other *** search
/ Shareware Extravaganza - Disc 4 / Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso / cad / jul90.zip / TIP555.MNU < prev    next >
Text File  |  1990-07-09  |  213b  |  7 lines
  1. [COPYROTA tip# 555 (c)1990 T.Priest]*^C^C(setq E(entlast));+
  2. SELECT;AU;\COPY;P;;0,0;;ROTATE;P;;\\+
  3. (setq I 0 COUNT (sslength(ssget "P")));+
  4. (while (< I count)(redraw+
  5. (setq E (entnext E)))(setq I (1+ I)))
  6. 
  7.